(Info-default-directory-list): Take out ../../info.

Avoid duplication.

diff --git a/lisp/paths.el b/lisp/paths.el
index b618f0186c0eb9a71f6effb5d3fd128b53113789..b3ced84da18b350026aea06e99f12f037bfc4c9a 100644 (file)
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -32,11 +32,16 @@
 ;;; Code:
 
 (defvar Info-default-directory-list
-  (list "/usr/local/info/"
-       "/usr/local/lib/info/"
-       configure-info-directory
-       (expand-file-name "../info/" data-directory)
-       (expand-file-name "../../info/" data-directory))
+  (let ((start (list "/usr/local/info/"
+                    "/usr/local/lib/info/"
+                    configure-info-directory)))
+    (or (member configure-info-directory start)
+       (setq start (nconc start (list configure-info-directory))))
+    (or (member (expand-file-name "../info/" data-directory) start)
+       (setq start
+             (nconc start
+                    (list (expand-file-name "../info/" data-directory)))))
+    start)
   "List of directories to search for Info documentation files.")
 
 (defvar news-path "/usr/spool/news/"